home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / misc / hamutil1 / lowpass.bas < prev    next >
BASIC Source File  |  1985-05-09  |  2KB  |  49 lines
  1. 10 REM USE THIS ON YOUR REATER TO AVOID EXCESSIVE SIDEBANDS
  2. 20 INPUT"TURN ON PRINTER AND RETURN";R
  3. 30 LPRINT
  4. 40 LPRINT"                       SHARP CUT-OFF"
  5. 50 LPRINT"                 LOW-PASS FILTER DESIGN"
  6. 60 LPRINT"                 ----------------------"
  7. 70 LPRINT
  8. 80 LPRINT"FROM HAM RADIO MAGAZINE - JANNUARY 1974"
  9. 90 LPRINT
  10. 100 LPRINT"CAPACITORS ARE MATCHED TO ONE PERCENT"
  11. 110 LPRINT"THE RESISTOR TERMINATOR SHOULD BE ONE PERCENT"
  12. 120 LPRINT
  13. 130 LPRINT"THIS FILTER PROVIDES FLAT RESPONSE TO THE CUTOFF"
  14. 140 LPRINT"FREQUENCY AND 25-30 DB ATTENUATION TO HIGHER FREQUENCIES"
  15. 150 LPRINT
  16. 160 LPRINT"DUAL WINDING 44 MHY TELEPHONE TOROIDS MAY BE USE TO"
  17. 170 LPRINT"MAKE BOTH THE 88 MHY AND THE 22 MHY INDUCTORS"
  18. 180 LPRINT
  19. 190 LPRINT"TO MAKE 22 MHY INDUCTORS, CONNECT THE TWO LEEDS WITH"
  20. 200 LPRINT"SPAGHETTI TOGETHER AND CONNECT TWO WITHOUT TOGETHER"
  21. 210 LPRINT"THIS PLACES THE TWO WINDINGS IN PARALLEL"
  22. 220 LPRINT
  23. 230 LPRINT"TO MAKE 88 MHY COILS,CONNECT THE TWO WINDINGS IN SERIES"
  24. 240 LPRINT:LPRINT
  25. 250 LPRINT" (C)     CUT-OFF   (R)"
  26. 260 LPRINT" CAP.    FREQ.     RES."
  27. 270 LPRINT" UFD.     HZ.      OHMS"
  28. 280 LPRINT"-----------------------"
  29. 290 LPRINT:LPRINT
  30. 300 IF A$<>""THEN GOTO 510
  31. 310 FOR C=.05 TO .21 STEP 5.000001E-03
  32. 320 A=C/1000000!
  33. 330 F=SQR((.75)/(A*9.86959*8.800001E-02))
  34. 340 R=3.14159*8.800001E-02*F
  35. 350 LPRINT USING "#.###";C;
  36. 360 LPRINT USING "#########";F;
  37. 370 LPRINT USING "#########";R
  38. 380 NEXT C
  39. 390 PRINT"CHANGE PAPER IF PAGE PRINTER"
  40. 400 INPUT"SPACE AND RETURN FOR PAGE 2";A$
  41. 410 IF A$<>""THEN GOTO 390
  42. 420 LPRINT:LPRINT:LPRINT
  43. 430 LPRINT"          -----( C )-----           -----( C )-----"
  44. 440 LPRINT"          :             :           :             :
  45. 450 LPRINT"      O---+---( L/4 )---+---( L )---+---( L/4 )---+---O"
  46. 460 LPRINT" INPUT                  :           :             :   OUTPUT"
  47. 470 LPRINT" LOW-Z                ( C )       ( C )         ( R ) HIGH-Z"
  48. 480 LPRINT"                        :           :             :"
  49. 490 LPRINT"      O------------------------